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-- BcdControlDefs.Mesa Edited by Johnsson on August 30. 1978 9:12 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs". 
BcdTreeDefs: FROM "bcdtreedef s'\ 
SegmentDefs: FROM "segmentdef s". 
StreamDefs: FROM "streamDef s"; 

BcdControlDefs: DEFINITIONS ■ 
BEGIN 

BinderDataRecord: TYPE » RECORD [ 

source stream: StreamDef s.StreamHandle, 

objectstream: StreamDef s.StreamHandle, 

codefile: STRING. 

symbolfile: STRING. 

outputfile: STRING. 

outputfti: BcdDefs. FTIndex. 

nModules: CARDINAL. 

errorcount: CARDINAL. 

warningcount: CARDINAL, 

textlndex: CARDINAL. 

textdisplay: BOOLEAN. 

currentname: BcdDefs. NameRecord, 

rootfile: STRING. 

binderVersion: BcdDefs, Versions tamp, 

starttime: CARDINAL. 

network: [0..1273, 

host: [0..255]. 

copycode: BOOLEAN. 

copysymbols: BOOLEAN. 

compress: BOOLEAN. 

debug: BOOLEAN. 

errors: BOOLEAN. 

warnings: BOOLEAN]; 

BinderData: TYPE ■ POINTER TO BinderDataRecord; 

LoadError: SIGNAL; 
BindError: SIGNAL; 
BuildSEError: SIGNAL; 
BcdWriteError: SIGNAL; 
InvalidFileFormat: SIGNAL; 

NunSourcelndex: CARDINAL « 177777B; 

shortStreamlndex: PROCEDURE [StreamDefs .Streamlndex] RETURNS [CARDINAL]; 
longStreamlndex: PROCEDURE [CARDINAL] RETURNS [StreamDef s .Streamlndex]; 
PrintTextLine: PROCEDURE [CARDINAL]; 

BuildSemanticEntries: PROCEDURE [root: BcdTreeDefs. TreeLink] ; 
LoadRoot: PROCEDURE [root: BcdTreeDefs .TreeLink]; 
BindRoot: PROCEDURE; 
WriteBcd: PROCEDURE [root: BcdTreeDefs. TreeLink]; 

BcdControl: PROGRAM [ 

data: BinderData, 

parseg: SegmentDefs.FileSegment Handle]; 
BcdTreePack: PROGRAM; 
BcdDebug: PROGRAM; 
BcdTreeBuild: PROGRAM; 
BcdScan: PROGRAM [data: BinderData]; 
BcdParse: PROGRAM; 

BcdSEBuild: PROGRAM [data: BinderData]; 
BcdFileLookup: PROGRAM; 
BcdUtilities: PROGRAM; 
BcdLoad: PROGRAM [data: BinderData]; 
BcdBind: PROGRAM [data: BinderData]; 
BcdWrite: PROGRAM [data: BinderData]; 
BindErrors: PROGRAM [data: BinderData]; 

END. 


